Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN-GN.SUB < prev next >

Wrap

Text File | 1987-01-05 | 4.7 KB | 242 lines

; ROBIN-GN.SUB "Round Robin Dialer" ; by ; Samuel Smulowitz ; CENTURY ASSOCIATES ; 141-04 71st Avenue ; Flushing, N.Y. 11367 ; ; START: ; GETNUMS1: LOCATE 9,0 MESSAGE"╔═══════════════════════════════════════════════════════════════════╗" MESSAGE"║ DIALING LIST: ║" MESSAGE"║ 1: ║" MESSAGE"║ 2: ║" MESSAGE"║ 3: ║" MESSAGE"║ 4: ║" MESSAGE"║ 5: ║" MESSAGE"║ 6: ║" MESSAGE"║ 7: ║" MESSAGE"║ 8: ║" MESSAGE"║ ║" MESSAGE"║ NOW DIALING : ║" MESSAGE"╚═══════════════════════════════════════════════════════════════════╝" SETUP1: LOCATE 11,6 MESSAGE " " LOCATE 11,6 GET S1 14 SWITCH S1 CASE "END" LOCATE 21,9 MESSAGE "'ROBN.CMD' ENDED. NO NUMBERS TO DIAL." ALARM 2 GOTO EXIT ENDCASE CASE "end" LOCATE 21,9 MESSAGE "'ROBN.CMD' ENDED. NO NUMBERS TO DIAL." ALARM 2 GOTO EXIT ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP1 ENDCASE CASE "n" GOTO SETUP1 ENDCASE ENDSWITCH SETUP2: LOCATE 12,6 MESSAGE " " LOCATE 12,6 GET S2 14 SWITCH S2 CASE "END" GOTO END-SETUP ENDCASE CASE "end" ASSIGN S2 "END" GOTO END-SETUP ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP2 CASE "n" GOTO SETUP2 ENDCASE ENDSWITCH SETUP3: LOCATE 13,6 MESSAGE " " LOCATE 13,6 GET S3 14 SWITCH S3 CASE "END" GOTO END-SETUP ENDCASE CASE "end" ASSIGN S3 "END" GOTO END-SETUP ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP3 ENDCASE CASE "n" GOTO SETUP3 ENDCASE ENDSWITCH SETUP4: LOCATE 14,6 MESSAGE " " LOCATE 14,6 GET S4 14 SWITCH S4 CASE "END" GOTO END-SETUP ENDCASE CASE "end" ASSIGN S4 "END" GOTO END-SETUP ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP4 ENDCASE CASE "n" GOTO SETUP4 ENDCASE ENDSWITCH SETUP5: LOCATE 15,6 MESSAGE " " LOCATE 15,6 GET S5 14 SWITCH S5 CASE "END" GOTO END-SETUP ENDCASE CASE "end" ASSIGN S5 "END" GOTO END-SETUP ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP5 ENDCASE CASE "n" GOTO SETUP5 ENDCASE ENDSWITCH SETUP6: LOCATE 16,6 MESSAGE " " LOCATE 16,6 GET S6 14 SWITCH S6 CASE "END" GOTO END-SETUP ENDCASE CASE "end" ASSIGN S6 "END" GOTO END-SETUP ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP6 ENDCASE CASE "n" GOTO SETUP6 ENDCASE ENDSWITCH SETUP7: LOCATE 17,6 MESSAGE " " LOCATE 17,6 GET S7 14 SWITCH S7 CASE "END" GOTO END-SETUP ENDCASE CASE "end" ASSIGN S7 "END" GOTO END-SETUP ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP7 ENDCASE CASE "n" GOTO SETUP7 ENDCASE ENDSWITCH SETUP8: LOCATE 18,6 MESSAGE " " LOCATE 18,6 GET S8 14 SWITCH S8 CASE "END" GOTO END-SETUP ENDCASE CASE "end" ASSIGN S8 "END" GOTO END-SETUP ENDCASE ENDSWITCH GOSUB TEL-OK SWITCH S9 CASE "N" GOTO SETUP8 ENDCASE CASE "n" GOTO SETUP8 ENDCASE ENDSWITCH ; END-SETUP: EXECUTE "ROBIN.CMD" ; TEL-OK: LOCATE 22,10 MESSAGE "TELEPHONE NUMBER OK? (Y/N) -------------------------> " OK: LOCATE 22,70 MESSAGE "[ ] " LOCATE 22,71 GET S9 1 YN: SWITCH S9 CASE "Y" RETURN ENDCASE CASE "N" RETURN ENDCASE CASE "y" RETURN ENDCASE CASE "n" RETURN ENDCASE ENDSWITCH GOTO OK ;